home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 27 / 027.d81 / cursor demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  39 lines
  1. 0 rem (NULL)usrrunhcloselet>Zright$,(NULL) (NULL)usrrunnotH+l(NULL)(NULL)z
  2. 3 rem sys 2054, row, column to use
  3. 4 fori=2054to2078
  4. 5 reada:poke i,a: t=t+a
  5. 6 next:goto10
  6. 8 data 32,241,183,138,72,160,1,136,177,122,201,44,208
  7. 9 data 5,32,241,183,138,168,104,170,24,76,240,255
  8. 10 poke53281,0:crsr=2054:printchr$(147)
  9. 20 syscrsr,4,12:printchr$(5)"good afternoon
  10. 30 [141]200:[158] crsr,19,6:[153][199](156)"you have control!
  11. 40 gosub200:sys crsr,8:printchr$(159)"messages can appear...
  12. 50 [141]200:[158] crsr,12,20:[153][199](31)"anywhere you want!
  13. 60 gosub200
  14. 70 fori=1to100
  15. 80 ro=rnd(1)*25:co=rnd(1)*39
  16. 100 syscrsr,ro,co:poke646,iand15:print"*";:next:goto60010
  17. 200 syscrsr,23,11
  18. 210 printchr$(18)" press any key... "
  19. 220 wait198,1:geta$:return
  20. 60000 :
  21. 60010 print"[147] would you like to:"
  22. 60020 print"     1.  see the demo again"
  23. 60022 print"     2.  return to loadstar"
  24. 60024 print"     3.  quit to basic"
  25. 60026 print"     which? ";
  26. 60030 :
  27. 60040 poke198,0:wait198,1:geta$:ifa$<>"1"anda$<>"2"anda$<>"3"then60040
  28. 60050 :
  29. 60052 printa$
  30. 60060 ifa$="1"then10
  31. 60070 ifa$="2"then63000
  32. 60080 print"are you sure?":poke198,0:wait198,1:geta$:ifa$<>"y"then60000
  33. 60082 end
  34. 60090 :
  35. 63000 :
  36. 63010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  37. 63020 ifer<>63thenend
  38. 63030 load"hello connect",8
  39.